home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b4.d64 / searchfile.l < prev    next >
Text File  |  2007-02-28  |  448b  |  14 lines
  1. 0010 DIM SURNAM$ OF 20, FORNAM$ OF 20, SEX$ OF 1, BIRTH$ OF 6
  2. 0020 OPEN FILE 2,"PERSONFILE",READ
  3. 0030 FOR REC:=1 TO 5 DO
  4. 0040 READ FILE 2: ROLL,SURNAM$,FORNAM$,SEX$,BIRTH$,HITE,CHECK
  5. 0050 IF CHECK<>0 THEN
  6. 0060 PRINT "ERROR IN RECORD NUMBER";REC
  7. 0070 ELIF HITE>170 AND SEX$="M" AND BIRTH$(5:6)<"26" THEN
  8. 0080 PRINT ROLL;FORNAM$;SURNAM$
  9. 0090 ENDIF 
  10. 0100 ENDFOR REC
  11. 0110 READ FILE 2: ENDMARK
  12. 0120 IF ENDMARK<>-1 THEN PRINT "END FILE ERROR"
  13. 0130 CLOSE
  14.